home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Symbol Processors / Mix / symbol-separate < prev   
Lisp/Scheme  |  1998-10-23  |  797b  |  23 lines

  1. symbol-separate symbol-pattern
  2.  
  3. Separates symbol-pattern and creates a new list for each symbol. Returns a list of lists. Use this function to break down melody or chord patterns. The resulting melodies can be assigned to different instruments, which when played together resemble the original, but is more funky.
  4.  
  5. (symbol-separate '(a-bc (1 a) (1 b)))
  6. --> ((-b = =) (a (1 a) =) (= = (1 b)) (c = =))
  7.  
  8. (symbol-separate '(abc (1 a g -1 c) b))
  9. --> ((a (1 a) =) (b = b) (c (-1 c) =) (= g =))
  10.  
  11. (setq all (symbol-separate '(a b c d e)))
  12. --> ((a = = = =) (= b = = =) (= = c = =) (= = = d =) (= = = = e))
  13.  
  14. (setq mel1 (nth 0 all))
  15. --> (a = = = =)
  16. (setq mel2 (nth 1 all))
  17. --> (= b = = =)
  18. (setq mel3 (nth 2 all))
  19. --> (= = c = =)
  20. (setq mel4 (nth 3 all))
  21. --> (= = = d =)
  22. (setq mel5 (nth 4 all))
  23. --> (= = = = e)